DBStat Component Control Form1 Text2 Text2 List1 Text1 Text1 Command1 Label2 Label1 Select defective part. Command1_Click DBStat Text2_Change Form_Load List1_Click List1 ListIndex fault Label1_Click caller Command1_Click If cm >= 0 Then fault(caller) = List1.Text Form_Load